home *** CD-ROM | disk | FTP | other *** search
/ Risc World 5 / Risc World 5.iso / SOFTWARE / Issue5 / PD / DIRSYNC / LegalStuff / ccres / Bin / CleanMakeFile
Makefile  |  2003-12-09  |  1KB  |  43 lines
  1.    100 REM > CleanMakeFile
  2.    200 REM Removes the dynamic dependencies in RISC OS makefiles
  3.    300 REM (i.e. removes all the data after the "# Dynamic dependencies:" line).
  4.    400 REM
  5.    500 REM Written by John Tytgat <John.Tytgat@aaug.net>
  6.    600 REM GNU Public License
  7.    700 :
  8.    800 FileHandle% = 0
  9.    900 ON ERROR ON ERROR OFF:PROCError:END
  10.   1000 :
  11.   1100 SYS "OS_GetEnv" TO A$
  12.   1200 Offset% = INSTR(A$, " -file")
  13.   1300 IF Offset% = 0 THEN
  14.   1400   PRINT "Missing ""-file <filename>"" argument"
  15.   1500   END
  16.   1600 ENDIF
  17.   1700 MakeFileName$ = MID$(A$, Offset% + 7)
  18.   1800 :
  19.   1900 FileHandle% = OPENUP(MakeFileName$)
  20.   2000 IF FileHandle% = 0 THEN ERROR 1, "Can't open RISC OS Makefile <"+MakeFileName$+">"
  21.   2100 :
  22.   2200 CleanedUp% = FALSE
  23.   2300 WHILE NOT(EOF#FileHandle%) AND NOT(CleanedUp%)
  24.   2400   aLine$ = GET$#FileHandle%
  25.   2500   IF aLine$ = "# Dynamic dependencies:" THEN
  26.   2600     EXT#FileHandle% = PTR#FileHandle%
  27.   2700     CleanedUp% = TRUE
  28.   2800   ENDIF
  29.   2900 ENDWHILE
  30.   3000 CLOSE#FileHandle%:FileHandle% = 0
  31.   3100 :
  32.   3200 IF NOT(CleanedUp%) THEN
  33.   3300   PRINT "There was nothing to clean up in the file <";MakeFileName$;">"
  34.   3400 ENDIF
  35.   3500 END
  36.   3600 :
  37.   3700 DEF PROCError
  38.   3800 PRINT "ERROR: ";REPORT$;" at line ";ERL
  39.   3900 IF FileHandle% <> 0 THEN
  40.   4000   CLOSE#FileHandle%:FileHandle% = 0
  41.   4100 ENDIF
  42.   4200 ENDPROC
  43.